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


Ignore:
Timestamp:
08/16/10 16:49:14 (11 years ago)
Author:
felix winkelmann
Message:

suspension 0.2

File:
1 edited

Legend:

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

    r16350 r19438  
    66(import scheme chicken)
    77(use extras ports data-structures)
     8
    89
    910(define-constant +operator-chars+
     
    1516      (if lnwrap (lnwrap x ln) x))
    1617    (define (err msg . args)
    17       (apply error 'read-honu (string-append msg (if line-numbers (conc " in line " ln) "")) args) )
     18      (apply
     19       error 'read-honu
     20       (string-append msg (if line-numbers (conc " in line " ln) "")) args) )
    1821    (define (opchar? c) (memq c +operator-chars+))
    1922    (define (skip)
Note: See TracChangeset for help on using the changeset viewer.