mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 21:47:33 +02:00
Added (values)
This commit is contained in:
parent
b456a94de6
commit
01d388f7bf
1 changed files with 4 additions and 0 deletions
|
@ -6,6 +6,7 @@
|
||||||
;delete-duplicates
|
;delete-duplicates
|
||||||
call-with-current-continuation
|
call-with-current-continuation
|
||||||
call/cc
|
call/cc
|
||||||
|
values
|
||||||
;(Cyc-bin-op cmp x lst)
|
;(Cyc-bin-op cmp x lst)
|
||||||
;(Cyc-bin-op-char cmp c cs)
|
;(Cyc-bin-op-char cmp c cs)
|
||||||
char=?
|
char=?
|
||||||
|
@ -61,6 +62,9 @@
|
||||||
(define *Cyc-version-banner* *version-banner*)
|
(define *Cyc-version-banner* *version-banner*)
|
||||||
;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return.
|
;; 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)
|
(define call-with-current-continuation call/cc)
|
||||||
|
(define (values . things)
|
||||||
|
(call/cc
|
||||||
|
(lambda (cont) (apply cont things))))
|
||||||
(define (Cyc-bin-op cmp x lst)
|
(define (Cyc-bin-op cmp x lst)
|
||||||
(cond
|
(cond
|
||||||
((null? lst) #t)
|
((null? lst) #t)
|
||||||
|
|
Loading…
Add table
Reference in a new issue