add true literal

rkh · Sep 11, 2011 · c7f8318 · c7f8318
1 parent 8c1d2e1
commit c7f8318
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/lib/reak/compiler/ast/TrueLiteral.st b/lib/reak/compiler/ast/TrueLiteral.st
@@ -0,0 +1,12 @@
+Rubinius.AST.TrueLiteral subclass: 'TrueLiteral' in: Reak.AST [
+  Reak.AST.Primary unshift: self.
+  self include: Reak.AST.Node.
+
+  (self class) >> grammar: g [
+    ^ g str: 'true'
+  ].
+
+  (self class) >> for: line with: aString [
+    ^ self new: line
+  ].
+]
diff --git a/lib/reak/kernel/Alpha.st b/lib/reak/kernel/Alpha.st
@@ -21,3 +21,4 @@ Reak on: (Reak.CodeLoader class) as: 'run:' expose: 'run'.
 
 Reak run: 'compiler/KPeg'.
 Reak run: 'compiler/ast/Self'.
+Reak run: 'compiler/ast/TrueLiteral'.
diff --git a/test/bootstrap/ast/TrueLiteralTest.st b/test/bootstrap/ast/TrueLiteralTest.st
@@ -0,0 +1,3 @@
+MiniTest.Unit.TestCase subclass: 'ASTTrueLiteralTest' [
+  self test: 'is truthy' [ self assert: true ].
+]