\ 4. lecture

: rr ( -- ) s" 4vo.fs" included ;
: :r rr ; \ ghci style

\ :noname \ ano-fkt

\ oop example: mini-examp.fs ( @ /pub/anton ...) oder bernd paysan webseite

\ live hax
\ > hex
\ > create foo
\ > 5 ,
\ > ' foo .
\ > ' foo >body .
\ > ' foo >body @ . 5 \ dazwischen steht das sogenannte `code field'

\ gforth schmaes
\ > here hex. \ (diese ausgabe)
\ > : foo 5 + ;
\ > here hex.
\ > : bar foo ;
\ > here hex.
\ > (diese ausgabe) 80 dump
\ > ' foo hex.
\ > ' foo >body hex.
\ > simple-see foo \ zwischencode \ ";s" aka "semis" aka "exit". wird fuer ';' kompiliert
\ > simple-see bar
\ addr von + in `simple-see foo' nehmen und
\ > <addr> 16 dump
\ \ und dann addressen dort nochmal dereferenzieren...
\ > <addr> @ 80 discode

\ \ besser: see-code


\ oder: > see +