Ignore:
Timestamp:
04/04/14 08:18:10 (7 years ago)
Author:
Ivan Raikov
Message:

picnic: reintegrated calculator language parser

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/picnic/trunk/calc-parser.scm

    r30536 r30645  
    5656                 (cond [(eq? 'eof c)   (errorp "unexpected end of string constant")]
    5757                       [(char=? c #\\) (let ((n (read-char in)))
    58                                          (loop (cons n l)))]
     58                                         (read-string (cons n l)))]
    5959                       [(char=? c #\") (begin (read-char in) (apply string (reverse l))) ]
    60                        [else (read-string (cons (read-char in) cs))] ))
     60                       [else (read-string (cons (read-char in) l))] ))
    6161               ))
    6262             )
Note: See TracChangeset for help on using the changeset viewer.