diff --git a/lib/chibi/syntax-case.scm b/lib/chibi/syntax-case.scm index 3c06f2bd..2a13187d 100644 --- 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 index da2c70b5..c96bc9fb 100644 --- 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"))