Fix error in recent define-option-interface "simplification".

Fix source breakpoints to cope with port whose filename is #f.
Ensure that position recording is enabled when source breakpoint module loaded.

ice-9/ChangeLog

@@ -1,3 +1,12 @@
+2002-11-05  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* boot-9.scm (define-option-interface): Fix to "simplification"
+	change below.
+
+	* debugger/breakpoints/source.scm: Enable source property
+	recording when module is loaded.
+	(##): Cope with ports whose `filename' is not a string.
+
 2002-11-04  Neil Jerram  <neil@ossau.uklinux.net>
 
 	* boot-9.scm (define-option-interface): Simplify code-generation

ice-9/boot-9.scm

@@ -2033,7 +2033,8 @@
 	      ,(make-disable interface))
 	    (defmacro ,(caaddr option-group) (opt val)
 	      `(,,(car options/enable/disable)
-		(list ',opt ,val)))))))))
+		(append (,,(car options/enable/disable))
+			(list ',opt ,val))))))))))
 
 (define-option-interface
   (eval-options-interface

ice-9/debugger/breakpoints/source.scm

@@ -257,9 +257,15 @@
 				       (set-source-property! x' 'column
 							     column)
 				       x'))))
+			;; Don't allow breakpointed expression to have
+			;; a filename property that isn't a string.
+			(or (string? filename)
+			    (set-source-property! x' 'filename "<unnamed port>"))
 			(break! x x')
 			x'))))
 
+(read-enable 'positions)
+
 ; (define g (make-guardian))
 ; (read-hash-extend #\g
 ; 		  (lambda (c port)