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 (error who . rest)
(display "error:")
(display who)
(display ":")
(display rest)
(display newline))
(display "error:" (current-error-port))
(display who (current-error-port))
(display ":" (current-error-port))
(display rest (current-error-port))
(newline (current-error-port)))
(define (syntax-error message . rest)
(display "syntax-error:" (current-error-port))

10
syntax.mes
View file

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