artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

resurrect mescc.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-10-10 23:54:48 +02:00
parent 7ff86c393f
commit c506880a14
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scm.mes
View file

@ -160,11 +160,11 @@
(define else #t) (define else #t)
(define (error who . rest) (define (error who . rest)
(display "error:") (display "error:" (current-error-port))
(display who) (display who (current-error-port))
(display ":") (display ":" (current-error-port))
(display rest) (display rest (current-error-port))
(display newline)) (newline (current-error-port)))
(define (syntax-error message . rest) (define (syntax-error message . rest)
(display "syntax-error:" (current-error-port)) (display "syntax-error:" (current-error-port))

10
syntax.mes
View file

@ -1,11 +1,11 @@
;; -*-scheme-*- ;; -*-scheme-*-
(define (syntax-error message thing) (define (syntax-error message thing)
(display "syntax-error:") (display "syntax-error:" (current-error-port))
(display message) (display message (current-error-port))
(display ":") (display ":" (current-error-port))
(display thing) (display thing (current-error-port))
(newline)) (newline (current-error-port)))
(define (silent-syntax-error message thing) (define (silent-syntax-error message thing)
*unspecified*) *unspecified*)