summaryrefslogtreecommitdiff
path: root/module/ice-9/psyntax.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/psyntax.scm')
-rw-r--r--module/ice-9/psyntax.scm4
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)