FilesExpand file tree

 codebreaker

/

wallingford.clj

Copy path

BlameMore file actions

BlameMore file actions

Latest commit

 

History

History

History

26 lines (22 loc) · 794 Bytes

 codebreaker

/

wallingford.clj

Top

File metadata and controls

• Code
• Blame

26 lines (22 loc) · 794 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

(ns examples.wallingford

(:use [clojure.contrib.def :only (defalias)])

(:require [examples.replace-symbol :only (deeply-nested)]))

(defalias deeply-nested examples.replace-symbol/deeply-nested)

; based on http://www.cs.uni.edu/~wallingf/patterns/recursion.html#3

; START: replace-symbol

; overly-literal port, do not use

(declare replace-symbol replace-symbol-expression)

(defn replace-symbol [coll oldsym newsym]

(if (empty? coll)

()

(cons (replace-symbol-expression

(first coll) oldsym newsym)

(replace-symbol

(rest coll) oldsym newsym))))

(defn replace-symbol-expression [symbol-expr oldsym newsym]

(if (symbol? symbol-expr)

(if (= symbol-expr oldsym)

newsym

symbol-expr)

(replace-symbol symbol-expr oldsym newsym)))

; END: replace-symbol