Commit d37bc4f9 authored by Erick Gallesio's avatar Erick Gallesio

NOP

parent b83911c6
......@@ -31,7 +31,7 @@
;;; by Eugene Kohlbecker and in R4RS Appendix.
;;;
;;;
;;; Last file update: 4-Jul-2007 15:15 (eg)
;;; Last file update: 6-Jul-2007 10:45 (eg)
#|
STklos Implementation Notes
......@@ -121,12 +121,13 @@ doc>
(define-module MBE
(import SCHEME)
(define (%not-implemented name)
(define (%not-implemented name args)
(error name
"cannot be used here. You must load the file \"full-syntax\" to access it"))
"cannot be used here. You must load the file \"full-syntax\" to access it:"
(cons name args)))
(define-macro (let-syntax . args) (%not-implemented 'let-syntax))
(define-macro (letrec-syntax . args)(%not-implemented 'letrec-syntax))
(define-macro (let-syntax . args) (%not-implemented 'let-syntax ',args))
(define-macro (letrec-syntax . args)(%not-implemented 'letrec-syntax ',args))
;;;
......
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment