No need to faff about with SRFI 188 after all

ashinn · Nov 2, 2024 · 5053f25 · 5053f25
1 parent 3e29f83
commit 5053f25
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 14 deletions.
diff --git a/lib/chibi/syntax-case.scm b/lib/chibi/syntax-case.scm
@@ -61,16 +61,6 @@
     ((letrec-syntax ((keyword transformer) ...) . body)
      (%letrec-syntax ((keyword (make-transformer transformer)) ...) . body))))
 
-(define-syntax splicing-let-syntax
-  (syntax-rules ()
-    ((splicing-let-syntax ((keyword transformer) ...) . body)
-     (%splicing-let-syntax ((keyword (make-transformer transformer)) ...) . body))))
-
-(define-syntax splicing-letrec-syntax
-  (syntax-rules ()
-    ((splicing-letrec-syntax ((keyword transformer) ...) . body)
-     (%splicing-letrec-syntax ((keyword (make-transformer transformer)) ...) . body))))
-
 (define-record-type Pattern-Cell
   (make-pattern-cell val) pattern-cell?
   (val pattern-cell-value))

diff --git a/lib/chibi/syntax-case.sld b/lib/chibi/syntax-case.sld
@@ -4,8 +4,7 @@
           datum->syntax syntax->datum
           generate-temporaries with-syntax syntax-violation
           with-ellipsis ellipsis-identifier?
-          define-syntax let-syntax letrec-syntax
-          splicing-let-syntax splicing-letrec-syntax)
+          define-syntax let-syntax letrec-syntax)
   (import (rename (chibi)
                   (define-syntax %define-syntax)
                   (let-syntax %let-syntax)
@@ -21,6 +20,5 @@
           (srfi 2)
           (srfi 9)
           (srfi 11)
-          (srfi 39)
-          (prefix (srfi 188) %))
+          (srfi 39))
   (include "syntax-case.scm"))