Remove some dead code.

src/Browsing.ns

@@ -747,7 +747,7 @@ lateNightWisdom = (
 	|
 	now = DateTime nowLocal.
 	hour = now hour - 1 \\ 12 + 1. (* 0 -> 12 *)
-	minute = now minutes.
+	minute = now minute.
 	time = hour asString, (minute < 10 ifTrue: [':0'] ifFalse: [':']), minute asString.
 	|
 	^BitOfWisdom text: 'It''s ', time, '. Go get some rest!'
@@ -1459,10 +1459,6 @@ public addNewItemTemplate = (
 				[:template | prefixes remove: template]).
 	prefixes refresh.
 )
-public deleteClassInPresenter: presenter <Presenter> ifSuccess: successResponse <[]> ifFailure: failureResponse <[]> = (
-	subject deleteClassWithSubject: presenter subject.
-	successResponse value
-)
 elementPresenterClass ^ <ProgrammingPresenter class> = (
 	^NestedClassPresenter
 )
@@ -2001,10 +1997,6 @@ createNewTransientSlotFromTemplate: template <DefinitionTemplate> = (
 		ifFailure:
 			[:message | template editor showMessage: message]
 )
-public deleteTransientSlotInPresenter: presenter <Presenter> ifSuccess: successResponse <[]> ifFailure: failureResponse <[]> = (
-	subject deleteTransientSlotWithSubject: presenter subject.
-	successResponse value
-)
 elementPresenterClass ^ <ProgrammingPresenter class> = (
 	^TransientSlotPresenter
 )

src/CombinatorialParsing.ns

@@ -321,13 +321,6 @@ finalBindForwardReferences = (
 			v bind: p.
 			p name: k (* a good place to name the productions *)]]
 )
-public nameProductions = (
-	selfMirror getClass slots do:
-		[:slot <SlotMirror> |
-		| parser |
-		parser:: (selfMirror getSlot: slot simpleName) reflectee.
-		parser isKindOfCombinatorialParser ifTrue: [parser name: slot name]].
-)
 setupForwardReferences = (
 	(* Go through all non-nil instance variables and set them to a fresh forward reference. If these do not correspond to productions, they will be overridden by the subclass. *)
 	selfMirror getClass slots do:

src/MinitestUI.ns

@@ -142,7 +142,7 @@ classDeclarationMirror = (
 	^testCase environment classDeclarationMirror
 )
 public className = (
-	^classDeclarationMirror qualifiedName
+	^classDeclarationMirror name
 )
 public exception = (
 	(* If the model is a test error, return the exception associated with the result. Otherwise return nil. *)

src/WorkspaceManager.ns

@@ -144,7 +144,6 @@ public class Workspace = (
 public workspaceText
 |) (
 public actors = ( ^platform actors )
-public aliens = ( ^platform aliens )
 public collections = ( ^platform collections )
 protected doesNotUnderstand: message = (
 	^Root

src/index.html

@@ -38,9 +38,6 @@
           request.send();
         },
         print: function(text) {
-          if (arguments.length > 1) {
-            text = Array.prototype.slice.call(arguments).join(" ");
-          }
           console.log(text);
 
           var pre = document.createElement("pre");
@@ -50,9 +47,6 @@
           window.scrollTo(0, document.body.scrollHeight);
         },
         printErr: function(text) {
-          if (arguments.length > 1) {
-            text = Array.prototype.slice.call(arguments).join(" ");
-          }
           console.error(text);
 
           var pre = document.createElement("pre");