diff options
Diffstat (limited to 'module/language/tree-il/peval.scm')
-rw-r--r-- | module/language/tree-il/peval.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm index 1a355a030..aab872164 100644 --- a/module/language/tree-il/peval.scm +++ b/module/language/tree-il/peval.scm @@ -1008,7 +1008,9 @@ top-level bindings from ENV and return the resulting expression." exp)) (else (let ((vals (map for-value exps))) - (if (and (memq ctx '(value test effect)) + (if (and (case ctx + ((value test effect) #t) + (else (null? (cdr vals)))) (every singly-valued-expression? vals)) (for-tail (list->seq src (append (cdr vals) (list (car vals))))) (make-primcall src 'values vals)))))) |