use guard expr

v6.3-exception
Matthew Butterick 7 years ago
parent b98131f98a
commit fadbca3fd2

@ -15,7 +15,8 @@
(define (handle-args . args) (define (handle-args . args)
(for/fold ([stack-acc empty]) (for/fold ([stack-acc empty])
([arg (filter-not void? args)]) ([arg (in-list args)]
#:unless (void? arg))
(cond (cond
[(number? arg) (cons arg stack-acc)] [(number? arg) (cons arg stack-acc)]
[(or (equal? * arg) (equal? + arg)) [(or (equal? * arg) (equal? + arg))

Loading…
Cancel
Save