Commit 6b2c467

committed

Redefined `uniq' to provide real gensyms. Prefixes can now be provided too.

Also, gensyms now are of the format g### instead of gs###.

1 parent 1d9b8c6 commit 6b2c467Copy full SHA for 6b2c467

File tree

-9

lines changed

-9

lines changed

Lines changed: 1 addition & 9 deletions

Original file line number	Diff line number	Diff line change
`@@ -835,15 +835,7 @@`
`835`	`835`
`836`	`836`	`(xdef 'rep ar-rep)`
`837`	`837`
`838`		`-; currently rather a joke: returns interned symbols`
`839`		`-`
`840`		`-(define ar-gensym-count 0)`
`841`		`-`
`842`		`-(define (ar-gensym)`
`843`		`- (set! ar-gensym-count (+ ar-gensym-count 1))`
`844`		`- (string->symbol (string-append "gs" (number->string ar-gensym-count))))`
`845`		`-`
`846`		`-(xdef 'uniq ar-gensym)`
	`838`	`+(xdef 'uniq gensym)`
`847`	`839`
`848`	`840`	`(xdef 'ccc call-with-current-continuation)`
`849`	`841`

Comments

(0)