From 9f88b697cf4fa70fd639898dd508907475115976 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 9 Jun 2006 18:55:44 +0000
Subject: [PATCH] <undefined> class

svn: r3307
---
 collects/swindle/tiny-clos.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/swindle/tiny-clos.ss b/collects/swindle/tiny-clos.ss
index bf5296f735..458e568b7f 100644
--- a/collects/swindle/tiny-clos.ss
+++ b/collects/swindle/tiny-clos.ss
@@ -1955,6 +1955,7 @@
 ;;>> <input-stream-port>
 ;;>> <output-stream-port>
 ;;>> <void>
+;;>> <undefined>
 ;;>> <box>
 ;;>> <weak-box>
 ;;>> <regexp>
@@ -2047,6 +2048,7 @@
 (defprimclass <input-stream-port> <input-port> <stream-port>)
 (defprimclass <output-stream-port> <output-port> <stream-port>)
 (defprimclass <void>)
+(defprimclass <undefined>)
 (defprimclass <box> <mutable>)
 (defprimclass <weak-box> <box>)
 (defprimclass <regexp>)
@@ -2170,6 +2172,7 @@
               [(inspector?      x) <inspector>]
               [(pseudo-random-generator? x) <pseudo-random-generator>]
               [(compiled-expression? x) <compiled-expression>]
+              [(eq? ??? x) <undefined>]
               [else <unknown-primitive>])))
 
 ;;; ---------------------------------------------------------------------------
@@ -2281,6 +2284,7 @@
 ;;>           <input-stream-port> : <primitive-class>
 ;;>           <output-stream-port> : <primitive-class>
 ;;>       <void> : <primitive-class>
+;;>       <undefined> : <primitive-class>
 ;;>       <box> : <primitive-class>
 ;;>         <weak-box> : <primitive-class>
 ;;>       <regexp> : <primitive-class>