download!

guillep · Oct 20, 2016 · c2f6a8b · c2f6a8b
1 parent e8e078a
commit c2f6a8b
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/examples/download.st b/examples/download.st
@@ -1,10 +1,6 @@
 #!/usr/bin/scale
-	| version destination |
-
-	version := 50. 
-	destination := system pwd.
+	| version  |
 
 	version := (system arguments optionAt: #v ifAbsent: [ 50 ]) asInteger.
-	destination := system arguments optionAt: #d ifPresent: [: op | op asFileReference ]ifAbsent: [ system pwd ].
-	system stdout << 'Downloading ' << version asString << ' into: ' << destination fullName; flush.
-	system loadPharo: version into: destination.
+	system stdout << 'Downloading ' << version asString << ' into: ' << system pwd fullName; flush.
+	system loadPharo: version into: system pwd.