Merge branch 'master' of git://factorcode.org/git/factor
commit
6dde570dfd
|
@ -1,6 +1,7 @@
|
|||
! Copyright (C) 2007 Slava Pestov, Daniel Ehrenberg.
|
||||
! 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
|
||||
{ $values { "word" "the word to be defined" } { "quot" "a quotation" } }
|
||||
|
|
|
@ -37,12 +37,12 @@ IN: memoize
|
|||
over check-memoized
|
||||
2dup "memo-quot" set-word-prop
|
||||
over H{ } clone "memoize" set-word-prop
|
||||
over make-memoizer define-compound ;
|
||||
over make-memoizer define ;
|
||||
|
||||
: MEMO:
|
||||
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 definition "memo-quot" word-prop ;
|
||||
|
|
|
@ -1,7 +1,8 @@
|
|||
! Copyright (C) 2006 Chris Double.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
|
||||
USING: help.markup help.syntax promises ;
|
||||
USING: help.markup help.syntax ;
|
||||
IN: promises
|
||||
|
||||
HELP: promise
|
||||
{ $values { "quot" "a quotation with stack effect ( -- X )" } { "promise" "a promise object" } }
|
||||
|
|
|
@ -42,4 +42,4 @@ TUPLE: promise quot forced? value ;
|
|||
: LAZY:
|
||||
CREATE dup reset-generic
|
||||
dup parse-definition
|
||||
make-lazy-quot define-compound ; parsing
|
||||
make-lazy-quot define ; parsing
|
||||
|
|
Loading…
Reference in New Issue