Changeset 32938 in project


Ignore:
Timestamp:
11/25/15 17:00:22 (5 years ago)
Author:
juergen
Message:

procedural-macros 1.0.1

Location:
release/4/procedural-macros
Files:
6 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/procedural-macros/tags/1.0.1/procedural-macros.scm

    r32927 r32938  
    166166                           ,@recu)))
    167167                     (else
    168                        `((,p (equal? ',p (eval (list-ref ,seq ,n))))
     168                       `((,p (equal? ',p (list-ref ,seq ,n)))
    169169                         ,@recu))
    170170                     )))
  • release/4/procedural-macros/tags/1.0.1/procedural-macros.setup

    r32927 r32938  
    77 'procedural-macros
    88 '("procedural-macros.so" "procedural-macros.import.so")
    9  '((version "1.0")))
     9 '((version "1.0.1")))
  • release/4/procedural-macros/tags/1.0.1/tests/run.scm

    r32927 r32938  
    4242      (= (foo "foo" 1) 1)
    4343      (equal? (foo "bar" 2) '("bar" 2))
    44       (equal? (foo (odd? 4) 'blabla) '(false))
    45                    ;(odd? 4) matches #f
     44      (equal? (foo #f 'blabla) '(false))
    4645      (equal? (foo 1 2) '(1 2))
    4746      (= (foo 2 3) 2)
    4847      (define-macro (bar #() x)
    4948        (where (integer? x)) x)
    50       (= (bar (vector) 5) 5)
     49      (= (bar #() 5) 5)
     50      (define-macro (baz '() x)
     51        (where (integer? x)) x)
     52      (= (baz '() 5) 5)
    5153
    5254      "IN?"
  • release/4/procedural-macros/trunk/procedural-macros.scm

    r32927 r32938  
    166166                           ,@recu)))
    167167                     (else
    168                        `((,p (equal? ',p (eval (list-ref ,seq ,n))))
     168                       `((,p (equal? ',p (list-ref ,seq ,n)))
    169169                         ,@recu))
    170170                     )))
  • release/4/procedural-macros/trunk/procedural-macros.setup

    r32927 r32938  
    77 'procedural-macros
    88 '("procedural-macros.so" "procedural-macros.import.so")
    9  '((version "1.0")))
     9 '((version "1.0.1")))
  • release/4/procedural-macros/trunk/tests/run.scm

    r32927 r32938  
    4242      (= (foo "foo" 1) 1)
    4343      (equal? (foo "bar" 2) '("bar" 2))
    44       (equal? (foo (odd? 4) 'blabla) '(false))
    45                    ;(odd? 4) matches #f
     44      (equal? (foo #f 'blabla) '(false))
    4645      (equal? (foo 1 2) '(1 2))
    4746      (= (foo 2 3) 2)
    4847      (define-macro (bar #() x)
    4948        (where (integer? x)) x)
    50       (= (bar (vector) 5) 5)
     49      (= (bar #() 5) 5)
     50      (define-macro (baz '() x)
     51        (where (integer? x)) x)
     52      (= (baz '() 5) 5)
    5153
    5254      "IN?"
Note: See TracChangeset for help on using the changeset viewer.