blob: a6930e11cdc346f5dc7f06137ec9b9a2c2e595f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
$NetBSD: patch-aa,v 1.4 2002/06/01 20:11:55 dmcmahill Exp $
needs GNU m4
--- scheme/gnet-PCBboard.scm.orig Sun Jan 27 13:48:35 2002
+++ scheme/gnet-PCBboard.scm
@@ -151,7 +151,7 @@
;; Original pipe command commented out by AVH (bugfix by Rich Walker)
;; (let ((pipe (open-output-pipe (string-append "m4 " *m4-pcbdir* "/common.m4 - >> " output-filename))))
;; Fixed pipe command (AVH 1/27/02)
- (let ((pipe (open-output-pipe (string-append "m4 -d -I" *m4-pcbdir* " " *m4-pcbdir* "/common.m4 - >> " output-filename))))
+ (let ((pipe (open-output-pipe (string-append "gm4 -d -I" *m4-pcbdir* " -I@pcb_confdir@ -I$HOME/.pcb -I. " *m4-pcbdir* "/common.m4 - >> " output-filename))))
;; packages is a list with the different uref value
|
