“Partial Evaluation” Declarations

34

(define *seed-urls*

‘(“http://www-swiss.ai.mit.edu/~ziggy/descartes.html”

“http://www.cs.cmu.edu:80/afs/cs.cmu.edu/user/wls/www/sbpm/people.html”

“http://www.irisa.fr/EXTERNE/projet/lande/consel/overview.html”

“http://www.irisa.fr/EXTERNE/projet/lande/Lande_anglais.html”

“http://www.cs.washington.edu/homes/pardo/rtcg.d/index.html”

))

(for-each

(lambda (url)

(let ((ichunk

(make-infochunk

(url/string-> url)

'((known url) (known user-relevant)))))

(announce-new-infochunk ichunk)))

*seed-urls*)

Previous slide

Next slide

Back to first slide

View graphic version