Files

examples/download.st

@@ -1,12 +1,12 @@
-#!/usr/bin/env scale
-| version |
-
-version := (system optionAt: #v ifAbsent: [ 70 ]) asInteger.
-system stdout
- << 'Downloading '
- << version asString
- << ' into: '
- << system pwd fullName
- ; flush.
-
-system loadPharo: version into: system pwd.
+#!/usr/bin/env scale
+| version |
+
+version := (system optionAt: #v ifAbsent: [ 70 ]) asInteger.
+system stdout
+ << 'Downloading '
+ << version asString
+ << ' into: '
+ << system pwd fullName
+ ; flush.
+
+system loadPharo: version into: system pwd.

examples/pwd.st

@@ -1,15 +1,8 @@
-#!/usr/bin/env scale
-
-| locator path |
-
-path := (FileLocator home) path.
-
-
-"system stdout << (OSEnvironment current at: 'PWD'); cr."
-
-system stdout << (system pwd fullName); cr.
-system stdout << (FileSystem disk workingDirectory fullName); cr.
-system stdout << ((system home / '.config') fullName); cr.
-
-
-system stdout << (system class selectors joinUsing: '\r\n')
+#!/usr/bin/env scale
+| locator path |
+path := (FileLocator home) path.
+"system stdout << (OSEnvironment current at: 'PWD'); cr."
+system stdout << (system pwd fullName); cr.
+system stdout << (FileSystem disk workingDirectory fullName); cr.
+system stdout << ((system home / '.config') fullName); cr.
+system stdout << (system class selectors joinUsing: '\r\n')