| 
				
			 | 
			
			
				@@ -96,8 +96,6 @@ function install_guile { 
			 | 
		
	
		
			
			| 
				96
			 | 
			
				96
			 | 
			
			
				 } 
			 | 
		
	
		
			
			| 
				97
			 | 
			
				97
			 | 
			
			
				  
			 | 
		
	
		
			
			| 
				98
			 | 
			
				98
			 | 
			
			
				 function install_guix_get_architecture { 
			 | 
		
	
		
			
			| 
				99
			 | 
			
				
			 | 
			
			
				-    read_config_param ARCHITECTURE 
			 | 
		
	
		
			
			| 
				100
			 | 
			
				
			 | 
			
			
				- 
			 | 
		
	
		
			
			| 
				101
			 | 
			
				99
			 | 
			
			
				     if [[ ${ARCHITECTURE} == *"386" || ${ARCHITECTURE} == *"686" ]]; then 
			 | 
		
	
		
			
			| 
				102
			 | 
			
				100
			 | 
			
			
				         CURR_ARCH='i686' 
			 | 
		
	
		
			
			| 
				103
			 | 
			
				101
			 | 
			
			
				     fi 
			 | 
		
	
	
		
			
			| 
				
			 | 
			
			
				@@ -137,6 +135,17 @@ function install_guix_user { 
			 | 
		
	
		
			
			| 
				137
			 | 
			
				135
			 | 
			
			
				     fi 
			 | 
		
	
		
			
			| 
				138
			 | 
			
				136
			 | 
			
			
				 } 
			 | 
		
	
		
			
			| 
				139
			 | 
			
				137
			 | 
			
			
				  
			 | 
		
	
		
			
			| 
				
			 | 
			
				138
			 | 
			
			
				+function image_install_guix { 
			 | 
		
	
		
			
			| 
				
			 | 
			
				139
			 | 
			
			
				+    install_guix_get_architecture 
			 | 
		
	
		
			
			| 
				
			 | 
			
				140
			 | 
			
			
				+    if [ ! -d $rootdir$INSTALL_DIR/guix ]; then 
			 | 
		
	
		
			
			| 
				
			 | 
			
				141
			 | 
			
			
				+        mkdir -p $INSTALL_DIR/guix 
			 | 
		
	
		
			
			| 
				
			 | 
			
				142
			 | 
			
			
				+    fi 
			 | 
		
	
		
			
			| 
				
			 | 
			
				143
			 | 
			
			
				+    cd $rootdir$INSTALL_DIR/guix 
			 | 
		
	
		
			
			| 
				
			 | 
			
				144
			 | 
			
			
				+    if [ ! -f guix-binary-${GUIX_VERSION}.${CURR_ARCH}-linux.tar.xz ]; then 
			 | 
		
	
		
			
			| 
				
			 | 
			
				145
			 | 
			
			
				+        wget $GUIX_DOWNLOAD_URL/guix-binary-${GUIX_VERSION}.${CURR_ARCH}-linux.tar.xz 
			 | 
		
	
		
			
			| 
				
			 | 
			
				146
			 | 
			
			
				+    fi 
			 | 
		
	
		
			
			| 
				
			 | 
			
				147
			 | 
			
			
				+} 
			 | 
		
	
		
			
			| 
				
			 | 
			
				148
			 | 
			
			
				+ 
			 | 
		
	
		
			
			| 
				140
			 | 
			
				149
			 | 
			
			
				 function install_guix { 
			 | 
		
	
		
			
			| 
				141
			 | 
			
				150
			 | 
			
			
				     if [[ $(app_is_installed install_guix) == "1" ]]; then 
			 | 
		
	
		
			
			| 
				142
			 | 
			
				151
			 | 
			
			
				         return 
			 | 
		
	
	
		
			
			| 
				
			 | 
			
			
				@@ -145,6 +154,8 @@ function install_guix { 
			 | 
		
	
		
			
			| 
				145
			 | 
			
				154
			 | 
			
			
				     apt-get -qy install wget xz-utils 
			 | 
		
	
		
			
			| 
				146
			 | 
			
				155
			 | 
			
			
				  
			 | 
		
	
		
			
			| 
				147
			 | 
			
				156
			 | 
			
			
				     read_config_param MY_USERNAME 
			 | 
		
	
		
			
			| 
				
			 | 
			
				157
			 | 
			
			
				+    read_config_param ARCHITECTURE 
			 | 
		
	
		
			
			| 
				
			 | 
			
				158
			 | 
			
			
				+ 
			 | 
		
	
		
			
			| 
				148
			 | 
			
				159
			 | 
			
			
				     install_guix_get_architecture 
			 | 
		
	
		
			
			| 
				149
			 | 
			
				160
			 | 
			
			
				  
			 | 
		
	
		
			
			| 
				150
			 | 
			
				161
			 | 
			
			
				     if [ ! -d $INSTALL_DIR/guix ]; then 
			 |