From 8590fcb02889bf5ea9d8e38a7dcf5f548dc656a1 Mon Sep 17 00:00:00 2001 From: sbragagnolo Date: Mon, 21 Jan 2019 21:31:07 +0100 Subject: [PATCH] Files --- examples/download.st | 24 ++++++++++++------------ examples/pwd.st | 23 ++++++++--------------- 2 files changed, 20 insertions(+), 27 deletions(-) diff --git a/examples/download.st b/examples/download.st index 75cf0cd..c3f86cc 100755 --- a/examples/download.st +++ b/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. \ No newline at end of file +#!/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. diff --git a/examples/pwd.st b/examples/pwd.st index 7d0a42a..2c4cf15 100755 --- a/examples/pwd.st +++ b/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') \ No newline at end of file +#!/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')