Ticket #980: parse-input.diff

File parse-input.diff, 673 bytes (added by Christian Kellermann, 9 years ago)
  • input-parse-chicken.scm

     
    1414(define char-tab (ascii->char 9))
    1515(define char-newline (ascii->char 10))
    1616
    17 (define parser-error error)
     17(define (parser-error port msg . specialising-msg*)
     18  (signal
     19   (make-composite-condition
     20    (make-property-condition 'input-parse)
     21    (make-property-condition 'parse-error)
     22    (make-property-condition 'exn 'message msg 'arguments specialising-msg*))))
    1823
    1924(include "myenv-chicken.scm")
    2025(include "input-parse.scm")
    2126
    22 )
    23  No newline at end of file
     27)