Re: local syntax-rules

[Lars J. Aas]

On Mon, Nov 06, 2000 at 05:50:34PM +0200, Ivan Toshkov wrote:
: Use let-syntax

I tried replacing

  (define-syntax argtype
    (syntax-rules ()
      ((argtype (name type)) type)
      ((argtype name) <top>)))
 
  (define-syntax argtypes
    (syntax-rules ()
      ((argtypes arg)
        (cons (argtype arg) '()))
      ((argtypes arg arg1 ...)
        (cons (argtype arg) (argtypes arg1 ...)))))

with

  (define-syntax argtypes
    (let-syntax ((argtype (syntax-rules ()
                            ((argtype (name type)) type)
                            ((argtype name) <top>))))
      (syntax-rules ()
        ((argtypes arg) (cons (argtype arg) '()))
        ((argtypes arg arg1 ...) (cons (argtype arg) (argtypes arg1 ...))))))

but I got this error:

/usr/local/share/guile/1.4/ice-9/syncase.scm:88:16: In procedure scm-error in 
expression (scm-error (quote misc-error) who ...):
/usr/local/share/guile/1.4/ice-9/syncase.scm:88:16: reference to identifier 
outside its scope argtype

Should I use let-syntax in another way (e.g. *inside* the argtypes 
syntax-rules)?

  Lars J