Add protocol slot to make it work with funny load order
							parent
							
								
									84cafde43a
								
							
						
					
					
						commit
						44b6a490a1
					
				| 
						 | 
					@ -58,6 +58,8 @@ IN: http.server.cgi
 | 
				
			||||||
        ] with-stream
 | 
					        ] with-stream
 | 
				
			||||||
    ] >>body ;
 | 
					    ] >>body ;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					SLOT: special
 | 
				
			||||||
 | 
					
 | 
				
			||||||
: enable-cgi ( responder -- responder )
 | 
					: enable-cgi ( responder -- responder )
 | 
				
			||||||
    [ serve-cgi ] "application/x-cgi-script"
 | 
					    [ serve-cgi ] "application/x-cgi-script"
 | 
				
			||||||
    pick special>> set-at ;
 | 
					    pick special>> set-at ;
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
		Reference in New Issue