Changeset 12948 in project
- Timestamp:
- 01/07/09 10:59:13 (12 years ago)
- Location:
- chicken/trunk
- Files:
-
- 4 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" -
chicken/trunk/optimizer.scm
r12937 r12948 31 31 compiler-arguments process-command-line perform-lambda-lifting! 32 32 default-standard-bindings default-extended-bindings 33 foldable-bindings 33 foldable-bindings llist-length 34 34 installation-home decompose-lambda-list external-to-pointer 35 35 copy-node! variable-visible? mark-variable intrinsic? … … 363 363 [(and (test fid 'explicit-rest) 364 364 (not (memq n rest-consers)) ) ; make sure we haven't inlined rest-list already 365 (let ([n (l ength llist)])365 (let ([n (llist-length llist)]) 366 366 (if (< (length args) n) 367 367 (walk-generic n class params subs) -
chicken/trunk/support.scm
r12937 r12948 67 67 generate-code make-variable-list make-argument-list generate-foreign-stubs foreign-type-declaration 68 68 foreign-argument-conversion foreign-result-conversion final-foreign-type debugging 69 constant-declarations process-lambda-documentation big-fixnum? sort-symbols 69 constant-declarations process-lambda-documentation big-fixnum? sort-symbols llist-length 70 70 export-dump-hook intrinsic? node->sexpr emit-global-inline-file inline-max-size 71 71 make-random-name foreign-type-convert-result foreign-type-convert-argument) … … 302 302 (define (process-lambda-documentation id doc proc) 303 303 proc) ; Hook this 304 305 (define (llist-length llist) 306 (##core#inline "C_u_i_length" llist)) 304 307 305 308
Note: See TracChangeset
for help on using the changeset viewer.