Changeset 36467 in project
- Timestamp:
- 08/30/18 13:01:38 (16 months ago)
- Location:
- release/5/bindings
- Files:
-
- 6 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
release/5/bindings/tags/1.2/bindings.egg
r36356 r36467 5 5 (test-dependencies simple-tests) 6 6 (author "Juergen Lorenz") 7 (version "1. 1")7 (version "1.2") 8 8 (components (extension bindings))) -
release/5/bindings/tags/1.2/bindings.scm
r36356 r36467 81 81 (bind bind-case bind-lambda bind-lambda* bind-case-lambda 82 82 bind-case-lambda* bind-named bind-let bind-let* bind-letrec bindrec 83 bindable? bind-define bind-set! bind/cc bindings 84 bind-seq-db bind-seq-ref bind-seq-tail bind-seq-null? bind-seq-exception bind-pseudo-list?) 83 bindable? bind-define bind-set! bind/cc bindings bind-seq-db 84 bind-seq-ref bind-seq-tail bind-seq-null? bind-seq-exception 85 bind-pseudo-list?) 85 86 86 87 (import scheme … … 333 334 literals 334 335 tails))) 335 ((atom? item) ; literal 336 ;((atom? item) ; literal 337 ((and (not (pair? item)) (not (null? item))) 336 338 (loop (+ k 1) 337 339 pairs … … 340 342 literals) 341 343 tails)) 342 ((pair? item) 344 ;((pair? item) 345 ((or (null? item) (pair? item)) 343 346 (receive (ps ls ts) 344 347 (destructure item `(,%bind-seq-ref ,seq ,k)) … … 400 403 `((,%where) ,xpr ,@xprs)))) 401 404 `(,%let ((,%seq ,seq)) 402 ,(cons %bind-with 403 (cons %let 404 (cons pat 405 (cons %seq body))))))))) 405 ;,(cons %bind-with 406 ; (cons %let 407 ; (cons pat 408 ; (cons %seq body))))))))) 409 ,(apply list %bind-with %let pat %seq body)))))) 406 410 407 411 #|[ -
release/5/bindings/tags/1.2/tests/run.scm
r36356 r36467 44 44 (define-test (binds?) 45 45 (= (bind a 1 a) 1) 46 (= (bind (a ()) (list 1 "") a) 1) 46 47 (equal? (bind (a b) '(1 2) (where (a odd?)) (list a b)) '(1 2)) 47 48 (equal? -
release/5/bindings/trunk/bindings.egg
r36356 r36467 5 5 (test-dependencies simple-tests) 6 6 (author "Juergen Lorenz") 7 (version "1. 1")7 (version "1.2") 8 8 (components (extension bindings))) -
release/5/bindings/trunk/bindings.scm
r36356 r36467 81 81 (bind bind-case bind-lambda bind-lambda* bind-case-lambda 82 82 bind-case-lambda* bind-named bind-let bind-let* bind-letrec bindrec 83 bindable? bind-define bind-set! bind/cc bindings 84 bind-seq-db bind-seq-ref bind-seq-tail bind-seq-null? bind-seq-exception bind-pseudo-list?) 83 bindable? bind-define bind-set! bind/cc bindings bind-seq-db 84 bind-seq-ref bind-seq-tail bind-seq-null? bind-seq-exception 85 bind-pseudo-list?) 85 86 86 87 (import scheme … … 333 334 literals 334 335 tails))) 335 ((atom? item) ; literal 336 ;((atom? item) ; literal 337 ((and (not (pair? item)) (not (null? item))) 336 338 (loop (+ k 1) 337 339 pairs … … 340 342 literals) 341 343 tails)) 342 ((pair? item) 344 ;((pair? item) 345 ((or (null? item) (pair? item)) 343 346 (receive (ps ls ts) 344 347 (destructure item `(,%bind-seq-ref ,seq ,k)) … … 400 403 `((,%where) ,xpr ,@xprs)))) 401 404 `(,%let ((,%seq ,seq)) 402 ,(cons %bind-with 403 (cons %let 404 (cons pat 405 (cons %seq body))))))))) 405 ;,(cons %bind-with 406 ; (cons %let 407 ; (cons pat 408 ; (cons %seq body))))))))) 409 ,(apply list %bind-with %let pat %seq body)))))) 406 410 407 411 #|[ -
release/5/bindings/trunk/tests/run.scm
r36356 r36467 44 44 (define-test (binds?) 45 45 (= (bind a 1 a) 1) 46 (= (bind (a ()) (list 1 "") a) 1) 46 47 (equal? (bind (a b) '(1 2) (where (a odd?)) (list a b)) '(1 2)) 47 48 (equal?
Note: See TracChangeset
for help on using the changeset viewer.