editors: scel - move code from el to sc to avoid method overwrite

we can simply call the library shutdown handler from within emacs to avoid
a method overwrite.

Signed-off-by: Tim Blechmann <tim@klingt.org>

el/sclang-interp.el

@@ -230,10 +230,10 @@ If EOB-P is non-nil, positions cursor at end of buffer."
   (sclang-message "Initializing library...done"))
 
 (defun sclang-on-library-shutdown ()
-  (run-hooks 'sclang-library-shutdown-hook)
+  (when sclang-library-initialized-p
-  (setq sclang-library-initialized-p nil)
+    (run-hooks 'sclang-library-shutdown-hook)
-  (sclang-message "Shutting down library...")
+    (setq sclang-library-initialized-p nil)
-  )
+    (sclang-message "Shutting down library...")))
 
 ;; =====================================================================
 ;; process hooks
@@ -311,6 +311,7 @@ If EOB-P is non-nil, positions cursor at end of buffer."
   "Start SuperCollider process."
   (interactive)
   (sclang-stop)
+  (sclang-on-library-shutdown)
   (sit-for 1)
   (sclang-init-post-buffer)
   (sclang-start-command-process)
@@ -349,7 +350,6 @@ If EOB-P is non-nil, positions cursor at end of buffer."
   "Recompile class library."
   (interactive)
   (when (sclang-get-process)
-    (sclang-on-library-shutdown)
     (process-send-string sclang-process "\x18")
     ))
 

sc/Emacs.sc

@@ -251,6 +251,7 @@ Emacs {
 			outStream = CollStream.on(String.new);
 			outFile = File(outFileName, "w");
 			ShutDown.add {
+				Emacs.evalLispExpression( "(sclang-on-library-shutdown)" );
 				if (outFile.notNil) {
 					outFile.close;
 					outFile = nil

sc/extPlatform.sc

@@ -1,13 +0,0 @@
-+ LinuxPlatform {
-	recompile {
-		if ( this.hasFeature( \emacs ) ) {
-			Emacs.evalLispExpression( "(sclang-recompile)" )
-		} {
-			this.prRecompile
-		}
-	}
-
-	prRecompile {
-		_Recompile
-	}
-}