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

Remove commented out code

db4
Slava Pestov 2008-04-17 04:14:55 -05:00
parent c00f89c38b
commit d7272871fe
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/generic/standard/engines/tuple/tuple.factor
View File

@ -30,14 +30,7 @@ TUPLE: tuple-dispatch-engine echelons ;
: <tuple-dispatch-engine> ( methods -- engine )
echelon-sort
[
! over zero? [
! dup assoc-empty?
! [ drop f ] [ values first ] if
! ] [
dupd <echelon-dispatch-engine>
! ] if
] assoc-map ! [ nip ] assoc-subset
[ dupd <echelon-dispatch-engine> ] assoc-map
\ tuple-dispatch-engine boa ;
: convert-tuple-methods ( assoc -- assoc' )