From 0e060c5cfdaa09d679b3b6546e8193b9c181ee1d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 4 Dec 2008 06:28:49 -0600 Subject: [PATCH 1/2] fix db load error --- basis/db/postgresql/postgresql.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/db/postgresql/postgresql.factor b/basis/db/postgresql/postgresql.factor index 82d96c4af1..90a875b8ff 100644 --- a/basis/db/postgresql/postgresql.factor +++ b/basis/db/postgresql/postgresql.factor @@ -267,7 +267,7 @@ ERROR: no-compound-found string object ; M: postgresql-db compound ( string object -- string' ) over { { "default" [ first number>string " " glue ] } - { "varchar" [ first number>string paren append ] } + { "varchar" [ first number>string "(" ")" surround append ] } { "references" [ >reference-string ] } [ drop no-compound-found ] } case ; From 041d2f328623da3d14ec5477cd186f8f97e1140d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 4 Dec 2008 06:31:08 -0600 Subject: [PATCH 2/2] fix load error --- extra/hardware-info/windows/nt/nt.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/hardware-info/windows/nt/nt.factor b/extra/hardware-info/windows/nt/nt.factor index 6215566f11..dafa90bcec 100755 --- a/extra/hardware-info/windows/nt/nt.factor +++ b/extra/hardware-info/windows/nt/nt.factor @@ -1,6 +1,7 @@ USING: alien alien.c-types alien.strings kernel libc math namespaces hardware-info.backend -windows windows.advapi32 windows.kernel32 system ; +hardware-info.windows windows windows.advapi32 +windows.kernel32 system ; IN: hardware-info.windows.nt M: winnt cpus ( -- n )