.

original commit: 95a4f254596e60c76f0aaea3d04c0d9aecced43b

collects/mred/mred.ss

@@ -6160,12 +6160,17 @@
 			  (let ([the-snip snip])
 			    (lambda (file line col ppos)
 			      (if (is-a? the-snip readable-snip<%>)
+				  (with-handlers ([exn:special-comment?
+						   (lambda (exn)
+						     ;; implies "done"
+						     (next-snip)
+						     (raise exn))])
 				  (let-values ([(val size done?)
 						(send the-snip read-one-special pos file line col ppos)])
 				    (if done?
 					(next-snip)
 					(set! pos (add1 pos)))
-				    (values val size))
+				    (values val size)))
 				  (begin
 				    (next-snip)
 				    (values (send the-snip copy) 1)))))]))]

notes/mred/HISTORY

@@ -1,4 +1,14 @@
 
+Version 200.3
+
+Added 'unknown/mask and 'unknown/gif bitmap types and
+ get-loaded-mask and set-loaded-mask methods to bitmap%;
+ used for GIF files containing transparent pixels
+Extended read-one-special in readable-snip<%> in parallel
+ to the exn:special-comment change for custom input ports
+Added 'packages-ok style flag to get-file and get-directory;
+ affects only Mac OS
+
 Version 200.1
 
 New load handler, text-editor-load-handler, enables MrEd to