Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 13:37:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (values)

Browse source
This commit is contained in:
Justin Ethier 2015-06-04 22:20:12 -04:00
parent b456a94de6
commit 01d388f7bf
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -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)