| 
					
				 | 
			
			
				@@ -28,9 +28,10 @@ process: aRequest 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 start 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         | block obj | 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-        block := [:req :res | 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-           {'res.writeHead(200, {''Content-Type'': ''text/html''});'}. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-           res end: (self process: req)]. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+        block := [:req :res || headers | 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    headers := Dictionary with: 'content-type' -> 'text/html'. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    res writeHead: (Array with: 200 with: headers). 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    res end: (self process: req)]. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (http createServer: block) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                 listen: #(1337 '127.0.0.1'). 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -41,8 +42,8 @@ start 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 !TrivialServer class methodsFor: 'initialization'! 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 initialize 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         "We require these Node modules." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				- 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	{'os = require(''os''), http = require(''http'');'} 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    os := require value: 'os'. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+    http := require value: 'http'. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 ! 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 main 
			 |