factor: move tc-lisp-talk to unmaintained as it uses HEREDOC:. Fix morse. THINGS PARSE
parent
cbdd80277e
commit
ef09fbe3b4
|
@ -543,7 +543,9 @@ vocab-roots get [ vocabs-from reject-some-paths ] map concat
|
|||
{
|
||||
"specialized-arrays" "specialized-vectors"
|
||||
"math.blas.matrices" "math.blas.vectors" "math.vectors.simd"
|
||||
"math.vectors.simd.cords" "game.debug"
|
||||
"math.vectors.simd.cords" "game.debug" "gpu.util" "gpu.effects.blur"
|
||||
"gpu.effects.step" "model-viewer" "terrain.shaders" "spheres"
|
||||
"bunny.cel-shaded" "bunny.outlined"
|
||||
} diff
|
||||
[ modern-source-path dup <pathname> . path>literals ] map-zip
|
||||
]]
|
|
@ -112,7 +112,7 @@ PRIVATE>
|
|||
: morse> ( morse -- plain )
|
||||
replace-underscores morse>sentence ;
|
||||
|
||||
SYNTAX: MORSE[[ "]]" parse-multiline-string morse> suffix! ;
|
||||
SYNTAX: \ MORSE[[ "]]" parse-multiline-string morse> suffix! ;
|
||||
|
||||
PRIVATE<
|
||||
|
||||
|
|
|
@ -27,7 +27,7 @@ in: rosetta-code.balanced-brackets
|
|||
str [
|
||||
{
|
||||
{ char: \[ [ 1 ] }
|
||||
{ char: ] [ -1 ] }
|
||||
{ char: \] [ -1 ] }
|
||||
[ drop 0 ]
|
||||
} case counter + counter!
|
||||
counter 0 < [ f ok! ] when
|
||||
|
|
|
@ -175,9 +175,9 @@ CONSTANT: google-slides
|
|||
"We define a mixin class for shapes, and add our existing data types as instances:"
|
||||
{ $code
|
||||
"mixin: shape"
|
||||
"INSTANCE: rectangle shape" ;
|
||||
"INSTANCE: circle shape" ;
|
||||
"INSTANCE: triangle shape" ;
|
||||
"INSTANCE: rectangle shape"
|
||||
"INSTANCE: circle shape"
|
||||
"INSTANCE: triangle shape"
|
||||
}
|
||||
}
|
||||
{ $slide "Object system"
|
||||
|
@ -210,7 +210,7 @@ CONSTANT: google-slides
|
|||
{ $code
|
||||
"TUPLE: parallelogram ... ;"
|
||||
""
|
||||
"INSTANCE: parallelogram shape" ;
|
||||
"INSTANCE: parallelogram shape"
|
||||
""
|
||||
"M: parallelogram area ... ;"
|
||||
""
|
||||
|
|
Loading…
Reference in New Issue