Changeset 22662 in project for release/4/honu/trunk


Ignore:
Timestamp:
02/08/11 18:42:57 (10 years ago)
Author:
felix winkelmann
Message:

honu: 1.7, fixed comment handling

Location:
release/4/honu/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/honu/trunk/honu.scm

    r22280 r22662  
    140140           (skip-comment) )
    141141          ((#\*)
    142            (case (read-char port)
    143              ((#\newline)
    144               (set! ln (fx+ ln 1))
    145               (skip-comment) )
    146              ((#\/) #f)
    147              (else (skip-comment)) ) )
     142           (let loop ()
     143             (case (read-char port)
     144               ((#\newline)
     145                (set! ln (fx+ ln 1))
     146                (skip-comment) )
     147               ((#\*) (loop))
     148               ((#\/) #f)
     149               (else (skip-comment)) ) ))
    148150          ((#\/)
    149151           (case (read-char port)
  • release/4/honu/trunk/honu.setup

    r22280 r22662  
    22
    33(compile -s -O3 -d1 honu.scm -j honu)
    4 (compile -c -O3 -d1 honu.scm -o honu.o -unit honu)
    54(compile -s -O3 -d0 honu.import.scm)
    65
    76(install-extension
    8  'honu '("honu.so" "honu.o" "honu.import.so")
    9  '((version 1.6)
    10    (static "honu.o")
    11    (documentation "honu.html")))
     7 'honu '("honu.so" "honu.import.so")
     8 '((version 1.7)))
Note: See TracChangeset for help on using the changeset viewer.