mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

syntax-dispatch -> $sc-dispatch

Browse source 
* module/ice-9/boot-9.scm:
* module/ice-9/psyntax-pp.scm:
* module/ice-9/psyntax.scm: Change syntax-dispatch to $sc-dispatch, as it
  is in current psyntax. The idea is that this isn't really a public
  variable, though it has to be, currently, so just obscure that fact
  with an obscure name.
This commit is contained in:
Andy Wingo 2009-04-26 21:10:24 +02:00
parent bac0272216
commit 5f1a2fb10f
3 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/ice-9/boot-9.scm
View file

@ -183,7 +183,7 @@
(define sc-expand #f) (define sc-expand #f)
(define sc-expand3 #f) (define sc-expand3 #f)
(define install-global-transformer #f) (define install-global-transformer #f)
(define syntax-dispatch #f) (define $sc-dispatch #f)
(define syntax-violation #f) (define syntax-violation #f)
(define (annotation? x) #f) (define (annotation? x) #f)

22
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because one or more lines are too long

10
module/ice-9/psyntax.scm
View file

@ -83,7 +83,7 @@
;;; used to report errors found during expansion ;;; used to report errors found during expansion
;;; (install-global-transformer symbol value) ;;; (install-global-transformer symbol value)
;;; used by expanded code to install top-level syntactic abstractions ;;; used by expanded code to install top-level syntactic abstractions
;;; (syntax-dispatch e p) ;;; ($sc-dispatch e p)
;;; used by expanded code to handle syntax-case matching ;;; used by expanded code to handle syntax-case matching
;;; The following nonstandard procedures must be provided by the ;;; The following nonstandard procedures must be provided by the
@ -1839,7 +1839,7 @@
(let () (let ()
(define convert-pattern (define convert-pattern
; accepts pattern & keys ; accepts pattern & keys
; returns syntax-dispatch pattern & ids ; returns $sc-dispatch pattern & ids
(lambda (pattern keys) (lambda (pattern keys)
(let cvt ((p pattern) (n 0) (ids '())) (let cvt ((p pattern) (n 0) (ids '()))
(if (id? p) (if (id? p)
@ -1918,7 +1918,7 @@
(build-primref no-source 'list) (build-primref no-source 'list)
(list x)) (list x))
(build-application no-source (build-application no-source
(build-primref no-source 'syntax-dispatch) (build-primref no-source '$sc-dispatch)
(list x (build-data no-source p))))))))))))) (list x (build-data no-source p)))))))))))))
(define gen-syntax-case (define gen-syntax-case
@ -2053,7 +2053,7 @@
(arg-check procedure? v 'define-syntax) (arg-check procedure? v 'define-syntax)
(global-extend 'macro sym v))) (global-extend 'macro sym v)))
;;; syntax-dispatch expects an expression and a pattern. If the expression ;;; $sc-dispatch expects an expression and a pattern. If the expression
;;; matches the pattern a list of the matching expressions for each ;;; matches the pattern a list of the matching expressions for each
;;; "any" is returned. Otherwise, #f is returned. (This use of #f will ;;; "any" is returned. Otherwise, #f is returned. (This use of #f will
;;; not work on r4rs implementations that violate the ieee requirement ;;; not work on r4rs implementations that violate the ieee requirement
@ -2164,7 +2164,7 @@
(syntax-object-module e))) (syntax-object-module e)))
(else (match* (unannotate e) p w r mod))))) (else (match* (unannotate e) p w r mod)))))
(set! syntax-dispatch (set! $sc-dispatch
(lambda (e p) (lambda (e p)
(cond (cond
((eq? p 'any) (list e)) ((eq? p 'any) (list e))