From 44c8da6e623457f4f7a3b11fb3ece96912d259f8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 12 Jan 2000 18:40:36 +0000
Subject: [PATCH] ...

original commit: 816cb1bfd74c88817e9fe7e35d0804b1c47869b8
---
 collects/framework/frameworks.ss |  1 -
 collects/framework/guiutils.ss   | 17 -----------------
 2 files changed, 18 deletions(-)

diff --git a/collects/framework/frameworks.ss b/collects/framework/frameworks.ss
index edb00eac..72c0050b 100644
--- a/collects/framework/frameworks.ss
+++ b/collects/framework/frameworks.ss
@@ -64,7 +64,6 @@
    delay-action
    local-busy-cursor
    unsaved-warning
-   sexp-snip<%>
    read-snips/chars-from-text
    get-choice
    open-input-buffer))
diff --git a/collects/framework/guiutils.ss b/collects/framework/guiutils.ss
index 7dc2508c..279d065d 100644
--- a/collects/framework/guiutils.ss
+++ b/collects/framework/guiutils.ss
@@ -177,10 +177,6 @@
 	(send dialog show #t)
 	result)]))
 
-  (define sexp-snip<%> (interface ((class->interface snip%))
-			 get-chars/snips ; : (-> (list-of (union char (instance-of text%) (instance-of snip%))))
-			 ))
-			  
   ;; better to treat all snips uniformly -- always processes text
   ;; snips, etc. in certain way, rather than just the top-level ones.
   ;; process sexp-snip<%> returned text%s as if top-level.
@@ -199,19 +195,6 @@
 	   [(not (<= (+ (unbox pos-box) (send snip get-count)) end))
 	    (set! get-next (lambda () eof))
 	    eof]
-	   [(is-a? snip sexp-snip<%>)
-	    (let sexp-loop ([l (send snip get-chars/snips)])
-	      (cond
-	       [(null? l)
-		(loop (send snip next))]
-	       [else
-		(let ([snip (car l)])
-		  (cond
-		   [(is-a? snip sexp-snip<%>)
-		    (sexp-loop (append (send snip get-chars/snips) (cdr l)))]
-		   [else
-		    (set! get-next (lambda () (sexp-loop (cdr l))))
-		    (car l)]))]))]
 	   [(is-a? snip string-snip%)
 	    (let ([str (send snip get-text 0 (send snip get-count))])
 	      (let string-loop ([n 0])