suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

plain definitions are better karma

Browse Source 
svn: r6914
This commit is contained in:
Eli Barzilay 2007-07-14 14:14:58 +00:00
parent 6330422b10
commit 2758133083
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/lazy/force.ss
View File

@ -2,8 +2,8 @@
(require "promise.ss") (require "promise.ss")
(provide (all-defined-except do-!!)) (provide (all-defined-except do-!!))
(define-syntax ! (make-rename-transformer #'force))
(define-syntax ~ (make-rename-transformer #'lazy)) (define-syntax ~ (make-rename-transformer #'lazy))
(define ! force)
(define (!! x) (do-!! x #f)) (define (!! x) (do-!! x #f))
;; Similar to the above, but wrap procedure values too ;; Similar to the above, but wrap procedure values too