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

* Leave a single definition of `maybe'

Browse Source 
* Change icon to the 3rd edition icon with transparency
* Change url to www.eopl3.com

svn: r10799
This commit is contained in:
Eli Barzilay 2008-07-16 17:58:25 +00:00
parent e892701c0d
commit 2260741a64
5 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
collects/eopl/eopl-small.gif
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 4.7 KiB

BIN
collects/eopl/eopl-small.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.7 KiB

4
collects/eopl/eopl-tool.ss
View File

@ -26,13 +26,13 @@ wraps the load of the module.)
'(-500 -400)) '(-500 -400))
(define/public (get-language-position) (define/public (get-language-position)
(list (string-constant teaching-languages) (list (string-constant teaching-languages)
"Essentials of Programming Languages (2nd ed.)")) "Essentials of Programming Languages (3rd ed.)"))
(define/public (get-module) (define/public (get-module)
'(lib "eopl/eopl.ss")) '(lib "eopl/eopl.ss"))
(define/public (get-one-line-summary) (define/public (get-one-line-summary)
"Based on the Friedman, Wand, and Haynes text") "Based on the Friedman, Wand, and Haynes text")
(define/public (get-language-url) (define/public (get-language-url)
"http://www.cs.indiana.edu/eopl/") "http://www.eopl3.com/")
(define/public (get-reader) (define/public (get-reader)
(lambda (src port) (lambda (src port)
(let ([v (read-syntax src port)]) (let ([v (read-syntax src port)])

9
collects/eopl/eopl.ss
View File

@ -123,12 +123,6 @@
((car preds) (car obj)) ((car preds) (car obj))
(loop (cdr obj) (cdr preds)))))))))) (loop (cdr obj) (cdr preds))))))))))
(define maybe
(lambda (pred)
(lambda (obj)
(or (pred obj)
(eqv? obj #f)))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define empty null) (define empty null)
@ -136,8 +130,7 @@
(define maybe (define maybe
(lambda (pred) (lambda (pred)
(lambda (obj) (lambda (obj)
(or (or (pred obj)
(pred obj)
(eqv? obj #f))))) (eqv? obj #f)))))
(provide time ;; useful to compare implementations (provide time ;; useful to compare implementations

8
collects/eopl/info.ss
View File

@ -3,14 +3,14 @@
(require string-constants) (require string-constants)
(define tools (list "eopl-tool.ss")) (define tools (list "eopl-tool.ss"))
(define tool-icons (list "eopl-small.gif")) (define tool-icons (list "eopl-small.png"))
(define tool-names (list "Essentials of Programming Languages")) (define tool-names (list "Essentials of Programming Languages"))
(define tool-urls (list "http://www.cs.indiana.edu/eopl/")) (define tool-urls (list "http://www.eopl3.com/"))
(define scribblings '(("eopl.scrbl" () (language -12)))) (define scribblings '(("eopl.scrbl" () (language -12))))
(define textbook-pls (define textbook-pls
(list (list '("eopl-small.gif" "eopl") (list (list '("eopl-small.png" "eopl")
"Essentials of Programming Languages" "Essentials of Programming Languages"
(string-constant teaching-languages) (string-constant teaching-languages)
"Essentials of Programming Languages (2nd ed.)"))) "Essentials of Programming Languages (3rd ed.)")))