ps: Fix ps* interop

* Simplify postscript code parsing by using the `cvx` (convert to executable) function. * Tweak the test cases to match reality (returns list of stack operands, or nil if stack is empty after exec).
ckafi · Mar 30, 2016 · 7bc5e95 · 7bc5e95
1 parent eb67113
commit 7bc5e95
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/ps/stepA_mal.ps b/ps/stepA_mal.ps
diff --git a/ps/tests/stepA_mal.mal b/ps/tests/stepA_mal.mal
@@ -13,11 +13,13 @@
 ;=>(true)
 
 (ps* "/sym")
-;=>sym
+;=>(sym)
 
 (ps* "1 1 eq { (yep) }{ (nope) } ifelse")
 ;=>("yep")
 
 (ps* "1 0 eq { (yep) }{ (nope) } ifelse")
 ;=>("nope")
 
+(ps* "1 2 3 pop pop pop")
+;=>nil