From deffa305690e6581f788016b579dfbed87a0f0e6 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 14 Jan 2019 07:44:05 +0000 Subject: [PATCH] Report bad expressions more clearly. --- src/compiler/back/bitutl.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/compiler/back/bitutl.scm b/src/compiler/back/bitutl.scm index 98e6502ae..7cb117b05 100644 --- a/src/compiler/back/bitutl.scm +++ b/src/compiler/back/bitutl.scm @@ -100,6 +100,10 @@ USA. (define (evaluate expression pc-value) (define (inner exp) (cond ((pair? exp) + (if (not (and (pair? (cdr exp)) + (pair? (cddr exp)) + (null? (cdddr exp)))) + (error "evaluate: bad expression:" exp)) ((find-operator (car exp)) (inner (cadr exp)) (inner (caddr exp)))) -- 2.25.1