talks.otug-talk: forgot a second $link.
parent
85d7fc9d30
commit
840ecce776
|
@ -59,7 +59,7 @@ CONSTANT: otug-slides
|
||||||
}
|
}
|
||||||
{ $slide "Constructing quotations"
|
{ $slide "Constructing quotations"
|
||||||
{ $code ": remove-comments* ( lines string -- lines' )" " '[ _ head? ] reject ;" "" ": remove-comments ( lines -- lines' )" " \"#\" remove-comments* ;" }
|
{ $code ": remove-comments* ( lines string -- lines' )" " '[ _ head? ] reject ;" "" ": remove-comments ( lines -- lines' )" " \"#\" remove-comments* ;" }
|
||||||
{ { $link @ } " inserts a quotation" }
|
{ { $link POSTPONE: @ } " inserts a quotation" }
|
||||||
{ $code ": replicate ( n quot -- seq )" " '[ drop @ ] map ;" }
|
{ $code ": replicate ( n quot -- seq )" " '[ drop @ ] map ;" }
|
||||||
{ $code "10 [ 1 10 [a,b] random ] replicate ." }
|
{ $code "10 [ 1 10 [a,b] random ] replicate ." }
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue