Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added call-with-current-continuation

Browse source
This commit is contained in:
Justin Ethier 2015-03-24 17:43:18 -04:00
parent 3d7b816272
commit c6d9bea327
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
trans.scm
View file

@ -54,6 +54,7 @@
(define *built-ins* `(
(define *Cyc-version-banner* ,*version-banner*)
;; 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 (char-whitespace? c) (member c '(#\tab #\space #\return #\newline)))
(define (char-numeric? c) (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)))
(define (foldl func accum lst)