Bug fix for WITH-SYSLOG-DESTINATION:

Properly take old syslog channel into account.

scsh/syslog.scm

@@ -257,9 +257,28 @@
 
 (define (with-syslog-destination ident options facility mask thunk)
   (let-thread-fluid dynamic-syslog-channel
-		    (make-syslog-channel ident options facility mask)
+		    (change-syslog-channel
+		     (thread-fluid dynamic-syslog-channel)
+		     ident options facility mask)
 		    thunk))
 
+;----------------
+; A record type whose only purpose is to run some code when we start up an
+; image.
+
+(define-record-type reinitializer :reinitializer
+  (make-reinitializer thunk)
+  reinitializer?
+  (thunk reinitializer-thunk))
+
+(define-record-discloser :reinitializer
+  (lambda (r)
+    (list 'reinitializer (reinitializer-thunk r))))
+
+(define-record-resumer :reinitializer
+  (lambda (r)
+    ((reinitializer-thunk r))))
+
 (initialize-syslog)
 
 (define syslog-reinitializer