diff --git a/scheme-core/system.scm b/scheme-core/system.scm index f489813..428b5c5 100644 --- a/scheme-core/system.scm +++ b/scheme-core/system.scm @@ -1040,7 +1040,7 @@ (display (caddr e)) (display ", got ") (write (cadddr e))) - + ((and (pair? e) (eq? (car e) 'bounds-error) (length= e 4))