blob: bfcb3e49c9d2065bb2547fc6a8a21d0bf9ee7a47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
$NetBSD: patch-aa,v 1.6 2003/07/15 09:23:34 dmcmahill Exp $
--- scheme/gnet-PCBboard.scm.orig Mon Mar 10 02:56:44 2003
+++ scheme/gnet-PCBboard.scm
@@ -134,7 +134,7 @@
;;
;;
-(define *m4-pcbdir* "/usr/X11R6/lib/X11/pcb/m4")
+(define *m4-pcbdir* "@pcb_confdir@")
;; To emulate popen. Guileish again.
; Needed after guile ver. 1.3.2. To save 1.3a users, wrap it in.
@@ -153,7 +153,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
|