Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #240 - Clean up error message

Browse source
This commit is contained in:
Justin Ethier 2020-01-13 13:03:29 -05:00
parent 62c929e529
commit 67baf4d5ee
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cps-optimizations.sld
View file

@ -2434,14 +2434,14 @@
(argc (- (length ast) 1)) ) (argc (- (length ast) 1)) )
(when (not (= argc expected-argc)) (when (not (= argc expected-argc))
(compiler-msg "Compiler Error: ") (compiler-msg "Compiler Error: ")
(compiler-msg ast) (compiler-msg (cons (car ast) (cddr ast)))
(compiler-error (compiler-error
"Expected " "Expected "
(number->string expected-argc) (number->string (- expected-argc 1)) ;; One less for continuation
" arguments to " " arguments to "
(symbol->string (car ast)) (symbol->string (car ast))
" but received " " but received "
(number->string argc))) )) (number->string (- argc 1)))) )) ;; One less for cont
;; Declare a compiler error and quit ;; Declare a compiler error and quit
;; Preferable to (error) since a stack trace is meaningless here. ;; Preferable to (error) since a stack trace is meaningless here.