syntax.mes: silence syntax error.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 10 Oct 2016 20:44:42 +0000 (22:44 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 10 Oct 2016 20:44:42 +0000 (22:44 +0200)
syntax.mes

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