Skip to content
Browse files

fix paths

  • Loading branch information...
1 parent b38ea78 commit d6e9b8ab6ac8312d720420b1e0c57c9417df7e6b @kourzanov committed Sep 23, 2012
Showing with 5 additions and 5 deletions.
  1. +1 −1 pjotr/tri-test.scm
  2. +4 −4 pjotr/tria.wiki
View
2 pjotr/tri-test.scm
@@ -48,7 +48,7 @@
(reverse (normalizes (fold append '()
(map decompose
(map (lambda (x) (sort trisort x))
- (read-model "/home/pjotr/scheme/TweakedPot.txt")))
+ (read-model "TweakedPot.txt")))
))))])
(pp (length divs))
(with-output-to-file "TweakedPot.divs" (delay
View
8 pjotr/tria.wiki
@@ -1,5 +1,5 @@
<doc>
-,(module tria (import (tri "/home/pjotr/scheme/tria.scm")))
+,(module tria (import (tri "tria.scm")))
,(define dir (dirname (the-loading-file)))
,(define (test t) (let* ((t (sort trisort (normalize t)))
(d (decompose t))
@@ -32,7 +32,7 @@
(reverse (normalizes (fold append '()
(map decompose
(map (lambda (x) (sort trisort x))
- (read-model "/home/pjotr/scheme/TweakedPot.txt")))
+ (read-model "TweakedPot.txt")))
))))
@@ -64,7 +64,7 @@
=== Old SVG-based stuff...
-,(map test (read-model "/home/pjotr/scheme/tri.txt"))
+,(map test (read-model "tri.txt"))
== Playground
@@ -136,4 +136,4 @@
,(test '((9 9.5) (10 10) (10 9)))
-</doc>
+</doc>

0 comments on commit d6e9b8a

Please sign in to comment.
Something went wrong with that request. Please try again.