From 5ec1d78beb97dd818e4c6b5a7f4dc7900fd72e6a Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Wed, 2 Oct 2013 13:38:28 -0400 Subject: [PATCH] remove extraneous files --- test.html | 2 -- test.scrbl | 8 -------- xml-parse-testing.rkt | 17 ----------------- 3 files changed, 27 deletions(-) delete mode 100644 test.html delete mode 100644 test.scrbl delete mode 100644 xml-parse-testing.rkt diff --git a/test.html b/test.html deleted file mode 100644 index b6023be..0000000 --- a/test.html +++ /dev/null @@ -1,2 +0,0 @@ - -
•???
5.3.4.6

(define x 1)
  (define y 2)
3

 
diff --git a/test.scrbl b/test.scrbl deleted file mode 100644 index b1973b5..0000000 --- a/test.scrbl +++ /dev/null @@ -1,8 +0,0 @@ -#lang scribble/manual -@(require scribble/eval) -@(require (for-label racket)) -@(define the-eval (make-base-eval)) -@codeblock{ - (+ 1 2) - (+ 3 4)} -@interaction-eval-show[#:eval the-eval \#lang racket] diff --git a/xml-parse-testing.rkt b/xml-parse-testing.rkt deleted file mode 100644 index ceae058..0000000 --- a/xml-parse-testing.rkt +++ /dev/null @@ -1,17 +0,0 @@ -#lang racket (require xml) - -(define xe (xml->xexpr (document-element (with-input-from-file "test.html" read-xml)))) - -(require xml/path) - -(define lst (car (filter - (λ (div) - (equal? "main" (se-path* '(div #:class) div))) - (se-path*/list '(div) xe)))) -lst -;(define paras (cdddr lst)) -;(cons (car lst) (cons (cadr lst) -; (cdddr lst))) - -;(match lst -; [`( \ No newline at end of file