aboutsummaryrefslogtreecommitdiff
path: root/projects/Stacker/samples/goof.st
diff options
context:
space:
mode:
authorBrian Gaeke <gaeke@uiuc.edu>2003-11-24 02:57:25 +0000
committerBrian Gaeke <gaeke@uiuc.edu>2003-11-24 02:57:25 +0000
commit3e4a271c891e98ace9f0833bf12fca75b03a2e8c (patch)
tree2cce74f08803942d2db31cc7bd9393851531d1ef /projects/Stacker/samples/goof.st
parent866f10c493ea7c38a53af021267e3e9f76af6164 (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.st26
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
+;