1\ Let's make a batch of duplicate definitions in various scopes... 2 3\ Updated Thu, 12 Oct 2006 at 13:17 PDT by David L. Paktor 4 5\ Tracing: alley-oop boop croop doop drop dup foop 6\ gloop _harpo hoop koop loop noop poop 7\ shtoop zoop 8\ fontbytes blink-screen base bell 9 10\ alley-oop 11\ boop 12\ croop Global Macro 13\ doop 14\ drop Built-in word, aliased, invoked 15\ dup Built-in word 16\ foop Global alias to dup 17\ floop Global Macro, Alias to flop (alias to drop), 18\ redefined in subordinate device 19\ gloop Undefined, invoked 20\ _harpo Local, in subordinate device 21\ hoop 22\ koop 23\ loop Built-in word 24\ noop Built-in word, redefined in second FCode block 25\ poop 26\ shtoop 27\ zoop 28\ fontbytes Built-in VALUE 29\ blink-screen Built-in DEFER 30\ base Built-in VARIABLE 31\ bell Built-in CONSTANT 32 33 34alias foop dup 35 36[macro] croop foop #message" Using FOOP " 37 38alias dup croop 39 40\ Stubs. 41\ These should be global. 42\ But, then, we _are_ injecting errors for this test.... 43 44[macro] _{local} noop #message" I got yer ""Local"" right here, chum!" 45 46alias {pop-locals} 3drop 47 48f[ h# a5519e constant {push-locals} ]f 49 50 51global-definitions 52 53alias flop drop 54#message" Sync Up Diffs w/ prev. Release."n"n" 55[macro] floop flop #message" Using FLOOP " 56alias drop floop 57 58device-definitions 59 60f[ false constant o'ryan ]f 61 62fcode-version2 63 64: noop ." Op? No!" ; 65[macro] zoop noop #message" I Care." 66: poop h# -21013572 ; 67 68 new-device 69 : zoop ." Nothing like the other zoop" croop ; 70 : croop ." Sort of like F-Troop with a higher GPA..." 71 foop 72 drop 73 floop 74 ; 75 : foop ." Shop bop-a-looma, a-lop bam boom!" ; 76 : floop ." Oh, Jiggly!" ; 77 : boop { _harpo | _cheeko } 78 f[ 127 constant _harpo ]f 79 poop -> _cheeko 80 f[ _cheeko constant a__gent ]f 81 floop 82 ; 83 84 alias droop drop 85 alias drupe 2drop 86 87 boop f[ true constant o'ryan ]f 88 foop 03 constant 3 89 90 new-device 91 : moop 92 _harpo 93 droop 94 drupe 95 boop 96 floop 97 ; 98 alias shoop encode-int 99 100 f[ 101 7a63 constant octal 102 boop 103 char-height 104 eval 105 moop 106 shoop 107 ]f 108 109 finish-device 110 111 : stoop 112 floop 113 gloop 114 shoop 115 ; 116 alias coop floop 117 : troop 118 shoop 119 coop 120 poop 121 ; 122 123 finish-device 124start4 \ Let's just stick in an extra, and another error besides... 125fcode-end 126 127\ And a few false-starts and ends... 128fcode-end 129 130start0 131 ." What does this button do?" 132end1 133 134start2 135 ." Oh, was I not supposed to touch that?" 136end0 137 138save-image poop.fc \ Not gonna happen anyway... 139