+ Greet with scsh-version-string

+ call relinquish-timeslice twice before exit so the flushers may run

scsh/top.scm

@@ -344,7 +344,10 @@
 		    args 
 		    context 
 		    (lambda () 
-		      (display "Welcome to scsh 0.6.0 (Chinese Democracy)" 
+		      (display (string-append 
+				"Welcome to scsh "
+				scsh-version-string
+				" (Combinatorial Algorithms)")
 			       (current-output-port))
 		      (newline (current-output-port))
 		      (display "Type ,? for help."
@@ -378,7 +381,9 @@
 
 ;;; placeholder for an extensible mechanism in the future
 (define (call-exit-hooks)
-  (flush-all-ports))
+  (flush-all-ports)
+  (relinquish-timeslice)
+  (relinquish-timeslice))
 
 (define (load-library-file file lib-dirs script-file)
 ; (format (error-output-port) "Load-library-file: ~a ~s\n" file lib-dirs)