Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 23:37:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Include source location in error messages

Browse source
This commit is contained in:
Justin Ethier 2020-07-21 23:05:32 -04:00
parent 0d25e5e122
commit 6d30e7449b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -1595,7 +1595,7 @@
(_append (rename 'append)) (_map (rename 'map)) (_append (rename 'append)) (_map (rename 'map))
(_vector? (rename 'vector?)) (_list? (rename 'list?)) (_vector? (rename 'vector?)) (_list? (rename 'list?))
(_len (rename'len)) (_length (rename 'length)) (_len (rename'len)) (_length (rename 'length))
(_- (rename '-)) (_>= (rename '>=)) (_error (rename 'error)) (_- (rename '-)) (_>= (rename '>=)) (_error (rename 'error/loc))
(_ls (rename 'ls)) (_res (rename 'res)) (_i (rename 'i)) (_ls (rename 'ls)) (_res (rename 'res)) (_i (rename 'i))
(_reverse (rename 'reverse)) (_reverse (rename 'reverse))
(_vector->list (rename 'vector->list)) (_vector->list (rename 'vector->list))
@ -1771,7 +1771,7 @@
(ell-vars (free-vars (car t) vars ell-dim))) (ell-vars (free-vars (car t) vars ell-dim)))
(cond (cond
((null? ell-vars) ((null? ell-vars)
(error "too many ...'s")) (error/loc "too many ...'s" expr))
((and (null? (cdr (cdr t))) (identifier? (car t))) ((and (null? (cdr (cdr t))) (identifier? (car t)))
;; shortcut for (var ...) ;; shortcut for (var ...)
(lp (car t) ell-dim)) (lp (car t) ell-dim))