diff options
Diffstat (limited to 'csc/cps.csc')
| -rw-r--r-- | csc/cps.csc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/csc/cps.csc b/csc/cps.csc index 0dc8a96..f2a9c90 100644 --- a/csc/cps.csc +++ b/csc/cps.csc @@ -262,7 +262,7 @@ (lambda (v) (make-apply f (list return-address v)))))))) ((% %call-builtin op args) - (define returns-value? (not (symbol=? op 'poke))) + (define returns-value? (not (memq op '(poke exit)))) (loop for arg in (reverse args) with expr = (lambda (vals) (if returns-value? |