steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Aaron Schaefer 2008-01-06 22:38:10 -05:00
parent 947e64c630 3bff775503
commit 6dde570dfd
4 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/memoize/memoize-docs.factor Normal file → Executable file
View File

@ -1,6 +1,7 @@
! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg. ! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: memoize help.syntax help.markup ; USING: help.syntax help.markup ;
IN: memoize
HELP: define-memoized HELP: define-memoized
{ $values { "word" "the word to be defined" } { "quot" "a quotation" } } { $values { "word" "the word to be defined" } { "quot" "a quotation" } }

4
extra/memoize/memoize.factor Normal file → Executable file
View File

@ -37,12 +37,12 @@ IN: memoize
over check-memoized over check-memoized
2dup "memo-quot" set-word-prop 2dup "memo-quot" set-word-prop
over H{ } clone "memoize" set-word-prop over H{ } clone "memoize" set-word-prop
over make-memoizer define-compound ; over make-memoizer define ;
: MEMO: : MEMO:
CREATE dup reset-generic parse-definition define-memoized ; parsing CREATE dup reset-generic parse-definition define-memoized ; parsing
PREDICATE: compound memoized "memoize" word-prop ; PREDICATE: word memoized "memoize" word-prop ;
M: memoized definer drop \ MEMO: \ ; ; M: memoized definer drop \ MEMO: \ ; ;
M: memoized definition "memo-quot" word-prop ; M: memoized definition "memo-quot" word-prop ;

3
extra/promises/promises-docs.factor Normal file → Executable file
View File

@ -1,7 +1,8 @@
! Copyright (C) 2006 Chris Double. ! Copyright (C) 2006 Chris Double.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: help.markup help.syntax promises ; USING: help.markup help.syntax ;
IN: promises
HELP: promise HELP: promise
{ $values { "quot" "a quotation with stack effect ( -- X )" } { "promise" "a promise object" } } { $values { "quot" "a quotation with stack effect ( -- X )" } { "promise" "a promise object" } }

2
extra/promises/promises.factor Normal file → Executable file
View File

@ -42,4 +42,4 @@ TUPLE: promise quot forced? value ;
: LAZY: : LAZY:
CREATE dup reset-generic CREATE dup reset-generic
dup parse-definition dup parse-definition
make-lazy-quot define-compound ; parsing make-lazy-quot define ; parsing