Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-14 16:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

cleanup

Browse source
This commit is contained in:
Justin Ethier 2017-11-19 18:43:37 -05:00
parent 5acffd72d1
commit 8750696e17
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/base.sld
View file

@ -530,19 +530,15 @@
(lambda (expr rename compare)
(apply error (cdr expr)))))
;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return.
(define call-with-current-continuation call/cc)
;; TODO: this is from r7rs, but is not really good enough by itself
;(define (values . things)
; (call/cc
; (lambda (cont) (apply cont things))))
;; Extended from r7rs definition to work in our Scheme
(define values
(lambda args
(if (and (not (null? args)) (null? (cdr args)))
(car args)
(cons (cons 'multiple 'values) args))))
;; TODO: just need something good enough for bootstrapping (for now)
;; does not have to be perfect (this is not, does not handle call/cc or exceptions)
(define call-with-values
(lambda (producer consumer)
(let ((x (producer)))