diff options
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r-- | module/ice-9/psyntax.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index a90c16c5a..51b1007d0 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -327,7 +327,7 @@ ;; that the generated identifier is reproducible. (module-gensym (symbol->string id))) - (define-syntax no-source (identifier-syntax #f)) + (define no-source #f) (define (datum-sourcev datum) (let ((props (source-properties datum))) @@ -546,7 +546,7 @@ ;; make-empty-ribcage and extend-ribcage maintain list-based ribcages for ;; internal definitions, in which the ribcages are built incrementally - (define-syntax-rule (make-empty-ribcage) + (define (make-empty-ribcage) (make-ribcage '() '() '())) (define (extend-ribcage! ribcage id label) |