Changeset 12948 in project for chicken/trunk/compiler.scm
- Timestamp:
- 01/07/09 10:59:13 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/compiler.scm
r12937 r12948 271 271 compiler-arguments process-command-line explicit-use-flag 272 272 default-standard-bindings default-extended-bindings 273 foldable-bindings 273 foldable-bindings llist-length 274 274 installation-home decompose-lambda-list external-to-pointer defconstant-bindings constant-declarations 275 275 copy-node! error-is-extended-binding toplevel-scope toplevel-lambda-id … … 1236 1236 (##sys#check-syntax 'lambda lexp '(lambda lambda-list . #(_ 1)) #f se) 1237 1237 (let ([llist (cadr lexp)]) 1238 (if (and (proper-list? llist) (= (l ength llist) (length args)))1238 (if (and (proper-list? llist) (= (llist-length llist) (length args))) 1239 1239 (walk `(,(macro-alias 'let se) 1240 1240 ,(map list llist args) ,@(cddr lexp)) se dest) … … 2176 2176 (= (length refs) (length sites)) 2177 2177 (proper-list? llist) ) ] ) 2178 (when (and name custom (not (= (length llist) (length (cdr subs))))) 2178 (when (and name 2179 custom 2180 (not (= (llist-length llist) (length (cdr subs))))) 2179 2181 (quit 2180 2182 "known procedure called with wrong number of arguments: ~A"
Note: See TracChangeset
for help on using the changeset viewer.