Changeset 10352 in project


Ignore:
Timestamp:
04/04/08 14:46:07 (12 years ago)
Author:
felix winkelmann
Message:

some bugfixes; r4rstest runs (yay)

Location:
chicken/branches/beyond-hope
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/beyond-hope/TODO

    r10351 r10352  
    1616** local definitions
    1717
    18 * test r4rstest
    1918* test benchmarks
    2019
  • chicken/branches/beyond-hope/expand.scm

    r10351 r10352  
    171171                         (let ([bindings (car body)])
    172172                           (cond [(symbol? bindings)
    173                                   (##sys#check-syntax 'let body '(_ #((variable _) 0) . #(_ 1)) #f se)
     173                                  (##sys#check-syntax 'let body '(_ #((variable _) 0) . #(_ 1)) #f dse)
    174174                                  (let ([bs (cadr body)])
    175175                                    (values
     
    744744 (##sys#er-transformer
    745745  (lambda (form r c)
    746     (##sys#check-syntax 'letrec _ '(_ #((symbol _) 0) . #(_ 1)))
     746    (##sys#check-syntax 'letrec form '(_ #((symbol _) 0) . #(_ 1)))
    747747    (let ((bindings (cadr form))
    748748          (body (cddr form))
Note: See TracChangeset for help on using the changeset viewer.