FIX: reverted wrong changes made by PR #693

red · Feb 24, 2014 · dc43cbe · dc43cbe
1 parent dfde1fc
commit dc43cbe
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/boot.red b/boot.red
@@ -21,15 +21,15 @@ integer!:		make datatype! #get-definition TYPE_INTEGER
 ;symbol!:		make datatype! #get-definition TYPE_SYMBOL
 ;context!:		make datatype! #get-definition TYPE_CONTEXT
 word!:			make datatype! #get-definition TYPE_WORD
-error!:			make datatype! #get-definition TYPE_ERROR
-typeset!:		make datatype! #get-definition TYPE_TYPESET
+;error!:		make datatype! #get-definition TYPE_ERROR
+;typeset!:		make datatype! #get-definition TYPE_TYPESET
 file!:			make datatype! #get-definition TYPE_FILE
 
 set-word!:		make datatype! #get-definition TYPE_SET_WORD
 get-word!:		make datatype! #get-definition TYPE_GET_WORD
 lit-word!:		make datatype! #get-definition TYPE_LIT_WORD
 refinement!:	make datatype! #get-definition TYPE_REFINEMENT
-binary!:		make datatype! #get-definition TYPE_BINARY
+;binary!:		make datatype! #get-definition TYPE_BINARY
 paren!:			make datatype! #get-definition TYPE_PAREN
 char!:			make datatype! #get-definition TYPE_CHAR
 issue!:			make datatype! #get-definition TYPE_ISSUE
@@ -41,12 +41,12 @@ native!:		make datatype! #get-definition TYPE_NATIVE
 action!:		make datatype! #get-definition TYPE_ACTION
 op!:			make datatype! #get-definition TYPE_OP
 function!:		make datatype! #get-definition TYPE_FUNCTION
-closure!:		make datatype! #get-definition TYPE_CLOSURE
+;closure!:		make datatype! #get-definition TYPE_CLOSURE
 routine!:		make datatype! #get-definition TYPE_ROUTINE
 object!:		make datatype! #get-definition TYPE_OBJECT
-port!:			make datatype! #get-definition TYPE_PORT
+;port!:			make datatype! #get-definition TYPE_PORT
 bitset!:		make datatype! #get-definition TYPE_BITSET
-float!:			make datatype! #get-definition TYPE_FLOAT
+;float!:		make datatype! #get-definition TYPE_FLOAT
 point!:			make datatype! #get-definition TYPE_POINT
 
 none:  			make none! 0

diff --git a/tests/source/units/system-test.red b/tests/source/units/system-test.red
@@ -23,7 +23,7 @@ Red [
 	--assert action! = type? get first find system/words 'find
 
 	--test-- "swt4 issue #455"
-	--assert datatype! = type? get first find system/words 'binary!
+	--assert datatype! = type? get first find system/words 'function!
 
 ===end-group===