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

syntax.mes: silence syntax error.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-10-10 22:44:42 +02:00
parent c6ce1662e4
commit bf02fa7f07
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
syntax.mes
View file

@ -7,6 +7,9 @@
(display thing) (display thing)
(newline)) (newline))
(define (silent-syntax-error message thing)
*unspecified*)
;;; Adapted from scheme48-1.1/scheme/alt/syntax.scm ;;; Adapted from scheme48-1.1/scheme/alt/syntax.scm
;;; Copyright (c) 1993-2004 by Richard Kelsey and Jonathan Rees. See file COPYING. ;;; Copyright (c) 1993-2004 by Richard Kelsey and Jonathan Rees. See file COPYING.
@ -172,7 +175,7 @@
(let ((vars (let ((vars
(free-meta-variables (car template) (+ rank 1) env '()))) (free-meta-variables (car template) (+ rank 1) env '())))
(if (null? vars) (if (null? vars)
(syntax-error "too many ...'s" template) (silent-syntax-error "too many ...'s" template)
(let* ((x (process-template (car template) (let* ((x (process-template (car template)
(+ rank 1) (+ rank 1)
env)) env))