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

Added syntax-error

Browse source
This commit is contained in:
Justin Ethier 2016-02-11 23:37:34 -05:00
parent 66f149da37
commit b5962fa8bb
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/base.sld
View file

@ -137,6 +137,7 @@
exact exact
inexact inexact
eof-object eof-object
syntax-error
;;;; ;;;;
; Possibly missing functions: ; Possibly missing functions:
@ -187,7 +188,6 @@
; textual-port? ; textual-port?
; ;
; ;; syntax-rules ; ;; syntax-rules
; syntax-error
; syntax-rules ; syntax-rules
; parameterize ; parameterize
; define-values ; define-values
@ -450,6 +450,11 @@
(else x))) (else x)))
(qq (cadr expr) 0)))) (qq (cadr expr) 0))))
(define-syntax syntax-error
(er-macro-transformer
(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. ;; 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)
;; TODO: this is from r7rs, but is not really good enough by itself ;; TODO: this is from r7rs, but is not really good enough by itself