Ticket #1493: lookup-fix.patch

File lookup-fix.patch, 696 bytes (added by megane, 8 years ago)

provisional patch

  • core.scm 

    diff --git a/core.scm b/core.scm
index 2bbed0b..3ecdd81 100644
    a b  
    517517
    518518  (define (lookup id)
    519519    (cond ((find-id id (##sys#current-environment)))
    520           ((##sys#get id '##core#macro-alias))
     520          ((##sys#get id '##core#macro-alias) symbol? => values)
    521521          (else id)))
    522522
    523523  (define (macro-alias var)

  • eval.scm 

    diff --git a/eval.scm b/eval.scm
index f1c5bb6..aeaf173 100644
    a b  
    9292
    9393      (define (rename var)
    9494        (cond ((find-id var (##sys#current-environment)))
    95               ((##sys#get var '##core#macro-alias))
     95              ((##sys#get var '##core#macro-alias) symbol? => values)
    9696              (else var)))
    9797
    9898      (define (lookup var0 e)