petite/src/wombat/scheme/Petite.java
public void reset() {
		// Actually clear the environment
		sendCommand("(interaction-environment (copy-environment (scheme-environment) #t))");

		// So that gensyms look at least semi-sane (it's not like anyone will need them)
		sendCommand("(print-gensym #f)");

		// To test infinite loops
		sendCommand("(define (omega) ((lambda (x) (x x)) (lambda (x) (x x))))");

		// Reset the library directories.
		sendCommand("(library-directories '((\"lib\" . \"lib\") (\".\" . \".\") (\"..\" . \"..\") (\"dist\" . \"dist\") (\"dist/lib\" . \"dist/lib\")))");

		// Fix error message that give define/lambda names
		sendCommand("(import (wombat define))");
		
		// Make sure that the prompt is set as we want it
		// Set this last so all of the startup commands have time to run
		sendCommand("(waiter-prompt-string \"|`\")");
		
		// Tell the listeners what we did.
		synchronized (Listeners) {
			for (PetiteListener pl : Listeners)
				pl.onReset();	
		}
	}
/**
	 * Reset Petite's environment.
	 */
Reset Petite's environment.
Reset Petite ' s environment .
public void reset() {
		sendCommand("(interaction-environment (copy-environment (scheme-environment) #t))");
		sendCommand("(print-gensym #f)");
		sendCommand("(define (omega) ((lambda (x) (x x)) (lambda (x) (x x))))");
		sendCommand("(library-directories '((\"lib\" . \"lib\") (\".\" . \".\") (\"..\" . \"..\") (\"dist\" . \"dist\") (\"dist/lib\" . \"dist/lib\")))");
		sendCommand("(import (wombat define))");
		sendCommand("(waiter-prompt-string \"|`\")");
		synchronized (Listeners) {
			for (PetiteListener pl : Listeners)
				pl.onReset();	
		}
	}
public void reset ( ) { sendCommand ( "(interaction-environment (copy-environment (scheme-environment) #t))" ) ; sendCommand ( "(print-gensym #f)" ) ; sendCommand ( "(define (omega) ((lambda (x) (x x)) (lambda (x) (x x))))" ) ; sendCommand ( "(library-directories '((\"lib\" . \"lib\") (\".\" . \".\") (\"..\" . \"..\") (\"dist\" . \"dist\") (\"dist/lib\" . \"dist/lib\")))" ) ; sendCommand ( "(import (wombat define))" ) ; sendCommand ( "(waiter-prompt-string \"|`\")" ) ; synchronized ( Listeners ) { for ( PetiteListener pl : Listeners ) pl . onReset ( ) ; } }
Reset Petite's environment.
Reset Petite ' s environment .
// Actually clear the environment // So that gensyms look at least semi-sane (it's not like anyone will need them) // To test infinite loops // Reset the library directories. // Fix error message that give define/lambda names // Make sure that the prompt is set as we want it // Set this last so all of the startup commands have time to run // Tell the listeners what we did.