diff options
author | Brian Gaeke <gaeke@uiuc.edu> | 2003-11-24 02:57:25 +0000 |
---|---|---|
committer | Brian Gaeke <gaeke@uiuc.edu> | 2003-11-24 02:57:25 +0000 |
commit | 3e4a271c891e98ace9f0833bf12fca75b03a2e8c (patch) | |
tree | 2cce74f08803942d2db31cc7bd9393851531d1ef /projects/Stacker/samples/goof.st | |
parent | 866f10c493ea7c38a53af021267e3e9f76af6164 (diff) |
Apply patches from PR136
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@10192 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'projects/Stacker/samples/goof.st')
-rw-r--r-- | projects/Stacker/samples/goof.st | 26 |
1 files changed, 25 insertions, 1 deletions
diff --git a/projects/Stacker/samples/goof.st b/projects/Stacker/samples/goof.st index 8fe9c51d92..8c1ff72ba4 100644 --- a/projects/Stacker/samples/goof.st +++ b/projects/Stacker/samples/goof.st @@ -1 +1,25 @@ -: defmebaby 23 0 = ; +# +# goof +# +: print_one + -- + SWAP + >s + DROP +; +: print_it + WHILE + print_one + END +; + +: MAIN + "MICKEY: I said she was f'in goofy!" + "MICKEY: I didn't say she was insane." + "JUDGE: Yet you provide no evidence of this and I do not concur." + "JUDGE: In your pleadings you claim that Mini Mouse is insane." + "MICKEY: Well, what do you mean, your honor?" + "JUDGE: Mr. Mouse, I find your grounds for divorce insufficient. " + 6 + print_it +; |